#!/usr/local/bin/perl5 -w
use strict

foreach $file(@ARGV)
{
	open FILE,"<",$file;
	while(<FILE>)
	{
		print ;
	}
}